MODBUS cihazları, [MBusDrv.dll] kütüphanesi ile R / W veri erişimi.
Verilen işlevler (pascal bildirimleri):
{* MODBUS cihazından standart okunan veriler *}
fonksiyonu GetMBData (const SlaveAddr: byte; const ReadType: boolean; var Veri: array [0..254] of byte): tam sayı; stdcall;
SlaveAddr: bayt (1..254)
ReadType: boolean (false = Bobinler / true = Kayıtları Kaydetme)
Veri: baytın [0..254] dizgesi (aygıt verileri)
Dönüş tamsayısı (0 = Tamam)
{* MODBUS cihazından genişletilmiş okunan veriler *}
işlevi GetMBDataEx (const SlaveAddr: sözcük; const ReadType: sözcük): işaretçi; stdcall;
SlaveAddr: kelime (1..254)
Okuma Türü: kelime (0 = Bobinler / 1 = Kayıt Kayıtları)
Dönüş işaretçisi 255 bayt (aygıt verileri veya 0 = Hata)
{* VBA (Microsoft Visual Basic), MODBUS cihazından verileri oku *}
işlevi GetMBDataVBA (const SlaveAddr: LongInt; const ReadType: LongInt): işaretçi; stdcall;
SlaveAddr: longint (1..254)
ReadType: longint (0 = Bobinler / 1 = Kayıt Kayıtları)
Dönüş işaretçisi 255 bayt (aygıt verileri veya 0 = Hata)
{* MODBUS cihazına standart yazma verileri *}
işlevi PutMBData (const SlaveAddr: bayt; const WriteType: boolean; const DataAddr: bayt; const Veri: sözcük): tam sayı; stdcall;
SlaveAddr: bayt (1. ..254)
WriteType: boolean (yanlış = Bobin / doğru = Kayıt Kayıt)
VeriAdresi: bayt (1..255)
Veri: kelime
Dönüş tamsayısı (durum kodu> = 0 = Tamam)
{* VBA (Microsoft Visual Basic) MODBUS cihazına veri yazar *}
işlevi PutMBDataVBA (const SlaveAddr: uzunluk; const WriteType: uzunlamasına; const DataAddr: uzunlamasına; const Veri: longint): longint; stdcall;
SlaveAddr: longint (1..254)
WriteType: longint (0 = Bobin / 1 = Kayıt Kayıt)
DataAddr: longint (1..255)
Veriler: uzunlamasına
Dönüş longint (durum kodu> = 0 = Tamam)
Yorum Bulunamadı